home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.46 / stinglibpcq / source / free.p < prev    next >
Text File  |  1995-03-27  |  330b  |  26 lines
  1. External;
  2.  
  3. {$I "include:utils/stringlib.i"}
  4. {$I "include:exec/memory.i"}
  5.  
  6. type
  7.     Str_List = record
  8.         pos  : integer;
  9.         next : ^Str_List;
  10.     end;
  11.  
  12.     Str_ListPtr = ^Str_List;
  13.  
  14.  
  15. procedure Str_FreeStr_List(p : Str_ListPtr);
  16.  
  17. begin
  18.     if p^.next = nil then
  19.         freemem(p,8)
  20.     else
  21.     begin
  22.         Str_FreeStr_List(p^.next);
  23.         freemem(p,8);
  24.     end;
  25. end;
  26.